home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 22 / PC Actual CD 22.iso / progs / DIRECTOR / data.z / Scriptable Authoring.dir / Scripts_47_Select a radio button for the band.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  632 b   |  14 lines
  1. global gBandReplaceMember, gPathDelimiter, gBandName, gPuppetList
  2.  
  3. on mouseDown
  4.   PlaySound("RadioButtonClick")
  5.   set firstSprite to the royHarperBand of gPuppetList
  6.   set secondSprite to the hanksVoodooBand of gPuppetList
  7.   set thirdSprite to the nightbloomersBand of gPuppetList
  8.   set chosenBand to SelectRadioButton(the clickOn, "Create Cast Radio Button On", "Create Cast Radio Button Off", [firstSprite, secondSprite, thirdSprite])
  9.   importFileInto(gBandReplaceMember, the pathName & "ScriptAuthor-Bands" & gPathDelimiter & string(chosenBand & ".PCT"))
  10.   set gBandName to chosenBand
  11.   DisplayCurrentBand()
  12.   PlayBandClip()
  13. end
  14.